1 SYS 3793 :POKE53280,0:POKE53281,12:POKE53276,2:POKE53286,5:POKE53287,9
2 POKE53288,8:POKE2040,14:POKE2041,15
3 PRINT"[147][155]                                       [146][151][187][155]";
7 PRINT"  T H E   D R E A M S   P R E S E N T  [146][151][161][155]";
8 PRINT"                                       [146][151][161][155]";
9 PRINT" [151][188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190][155]"
10 PRINT"                                       [146][151][161][155]";
11 PRINT"              APFEL - SIN              [146][151][161][155]";
20 PRINT" 31.12.1994 BY THE REAL RABBIT & ZAPHOD[146][151][161][155]";
25 PRINT"                                       [146][151][161]";
26 PRINT" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190][151]"
30 INPUT"X-RANGE (1-8191) ";IN$:XR=VAL(IN$)
31 IFXR=0 OR XR>8191 THEN30
40 INPUT"Y-RANGE (0-255) ";IN$:YR=VAL(IN$)/2
41 IF YR>255 THEN PRINT "ZU GROSS!!!":RUN 30
50 INPUT"Y-START           ";IN$:YS=VAL(IN$)
51 IF 2*YR+YS>255 THEN PRINT "ZU GROSS!!!":RUN 30
60 XD=2*(null)/XR:X=INT(XR/2+.5):X1=INT(SIN(X*XD)*YR+.5):X2=INT(SIN(X*XD-XD)*YR+.5)
70 PRINT"MAX. DIFFERENZ:";INT(ABS(X1-X2)+.5)
80 PRINT"ALLES FIT (J/N) ?>";
90 POKE198,0:WAIT 198,1:GET A$:IF A$="N" THEN RUN
100 IF A$<>"J"THEN 90
105 PRINTA$
110 FORT=0TOXR:POKE40960+T,INT(SIN(T*XD)*YR+0.5+YR+YS)
120 PRINT"KALKULIERT :"INT(100*T/XR+.5)"%[157][157]               [145]":NEXT
200 POKE254,INT((XR+40960)/256):POKE253,(XR+40960)-PEEK(254)*256:POKE255,0
210 SYS49152
220 POKE198,0:WAIT198,1:GETA$:IFA$<>" "THEN 220
230 POKE255,1:POKE53269,0:PRINT:PRINT
240 INPUT"ZAPHEN (J/N)";A$:IFA$="N" THENRUN
250 IF A$<>"J"THEN 240
260 INPUT"SAVEADRESS ($)";A$:Z=0
270 FORT=1TOLEN(A$):B$=MID$(A$,T,1)
280 Z=Z+16^(LEN(A$)-T)*(ASC(B$)-48+7*(ASC(B$)>57)):NEXT
290 PRINT"DAT FILE IS";:X=INT((2+XR)/254+.99999):PRINTX"BLOCK";:IFX>1THENPRINT"S";
300 PRINT" LANG":INPUT"FILENAME ";A$
301 INPUT"DEVICE  8[157][157][157]";D$:PRINT"DISK EINLEGEN!"
310 POKE198,0:WAIT198,1:POKE198,0:OPEN1,VAL(D$),15:CLOSE1
320 IF ST=-128 THENPRINT"DEVICE NOT PRESENT!":GOTO301
330 OPEN1,VAL(D$),2,A$+",P,W":HI=INT(Z/256):LO=Z-HI*256:PRINT#1,CHR$(LO);
335 PRINT#1,CHR$(HI);:POKE251,0:POKE252,160
340 FORT=0TOXR-1:SYS49302:PRINT#1,CHR$(PEEK(87));:NEXT:CLOSE1
350 PRINT"FERTICH!"